home *** CD-ROM | disk | FTP | other *** search
/ BCI NET / BCI NET Dec 94.iso / archives / telecomm / bbs / wwbbs.lha / WWBBS / Rexx / Session.rexx
Encoding:
OS/2 REXX Batch file  |  1994-09-23  |  541 b   |  45 lines
  1. /*
  2. ** $VER: Session.rexx 2.0 (21.8.94)
  3. */
  4.  
  5. options results
  6.  
  7. dummy
  8.  
  9. newuser = 0
  10.  
  11. if local=0 then do
  12.     delay 150
  13. end
  14.  
  15. ansidetect
  16.  
  17. if local=0 then do
  18.     logon
  19. end
  20. if local=1 then do
  21.     logon 'Sysop'
  22. end
  23. resultbuff = result
  24. if resultbuff='NEWUSER' then do
  25.     /* New user routine */
  26.     register
  27.     rcbuff = rc
  28.     if rcbuff = 1 then newuser = 1
  29. end
  30.  
  31. dologon
  32. rcbuff = rc
  33. if rcbuff = 1 then do
  34.     /* New user routine */
  35.     if newuser = 1 then do
  36.         edituser
  37.         editprefs
  38.         initfileglobal
  39.     end
  40.     /* Regular session routine */
  41.     readnews new
  42.     runmenu 'Main'
  43.     dologoff
  44. end
  45.